Imports System.Xml
Imports System.Data.SqlClient
Public Class dCertificacionUnidad
    Public Function Existe(ByVal CodigoCertificacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoCertificacion", CodigoCertificacion))
        Return (dConexion.Consultar("STORE_TblCertificacionUnidadBuscarFiltrado", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoEquipamiento As Long, ByVal codigoEnte As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pENumeroCertificacion", NumeroCertificacion))
        Parametros.Add(New SqlParameter("@pEFEchaInspeccion", FechaInspeccion))
        Parametros.Add(New SqlParameter("@pEEstado", estado))
        Parametros.Add(New SqlParameter("@pEVencimiento", vencimiento))
        Parametros.Add(New SqlParameter("@pEObservacion", observacion))
        Parametros.Add(New SqlParameter("@pECodigoUnidad", codigoEquipamiento))
        Parametros.Add(New SqlParameter("@pECodigoEnte", codigoEnte))


        Return dConexion.ABM("STORE_TblCertificacionUnidadAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoCertificacion As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoCertificacion", CodigoCertificacion))
        Return dConexion.ABM("STORE_TblCertificacionUnidadELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoCertificacion As Long, ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoUnidad As Long, ByVal codigoEnte As Long) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If CodigoCertificacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCertificacion", CodigoCertificacion))
        End If
        If NumeroCertificacion <> 0 Then
            Parametros.Add(New SqlParameter("@pENumeroCertificacion", NumeroCertificacion))
        End If
        If FechaInspeccion <> (New DateTime) Then
            Parametros.Add(New SqlParameter("@pEFechaInspeccion", FechaInspeccion.ToShortDateString))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If estado <> "" Then
            Parametros.Add(New SqlParameter("@pEestado", estado))
        End If
        If vencimiento <> (New DateTime) Then
            Parametros.Add(New SqlParameter("@pEVencimiento", vencimiento.ToShortDateString))
        End If
        If observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", observacion))
        End If
        If codigoUnidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoUnidad", codigoUnidad))
        End If
        If codigoEnte <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", codigoEnte))
        End If

        Return dConexion.ABM("STORE_TblCertificacionUnidadModificar", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoCertificacion As Long, ByVal NumeroCertificacion As Long, ByVal FechaInspeccion As Date, ByVal Descripcion As String, ByVal estado As String, ByVal vencimiento As Date, ByVal observacion As String, ByVal codigoUnidad As Long, ByVal codigoEnte As Long) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoCertificacion <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoCertificacion", CodigoCertificacion))
        End If
        If NumeroCertificacion <> 0 Then
            Parametros.Add(New SqlParameter("@pENumeroCertificacion", NumeroCertificacion))
        End If
        If FechaInspeccion <> (New DateTime) Then
            Parametros.Add(New SqlParameter("@pEFechaInspeccion", FechaInspeccion.ToShortDateString()))
        End If
        If Descripcion <> "" Then
            Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        If estado <> "" Then
            Parametros.Add(New SqlParameter("@pEestado", estado))
        End If
        If vencimiento <> (New DateTime) Then
            Parametros.Add(New SqlParameter("@pEVencimiento", vencimiento.ToShortDateString()))
        End If
        If observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", observacion))
        End If

        If codigoUnidad <> 0 Then
            Parametros.Add(New SqlParameter("@pEcodigoUnidad", codigoUnidad))
        End If
        If codigoEnte <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoEnte", codigoEnte))
        End If

        Return dConexion.Consultar("STORE_TblCertificacionUnidadBUSCARFILTRADO", Parametros)
    End Function
    Public Function Listar() As DataSet
        Return dConexion.Consultar("STORE_TblCertificacionUnidadBUSCARFILTRADO", New ArrayList)
    End Function
End Class
